Program Tp;
uses
    Dos,crt;
    
Const
    MAX_PEDIDOS = 200;
{Tipos de dato a usar en los archivos}
Type
    {$I DataTypes.pas}

    {$I FileManagment.pas}

    {$I ManejoPedidos.pas}
     
    {$I ManejoReparaciones.pas}
 
Procedure MostrarPedidos();
Var
    PedidoArchivo: FilePedidosReparados;
    NuevoPedido : PedidoReparado;
    i : integer;
Begin
        
    OpenFilePedidosReparados(PedidoArchivo);

    For i:=0 To (FileSize(PedidoArchivo)-1) Do
    Begin
        Seek(PedidoArchivo,i);
        Read(PedidoArchivo,NuevoPedido);
        Writeln('--------------------------------');
        Writeln('Numero             : ', NuevoPedido.Numero);
        Writeln('Fecha              : ', NuevoPedido.Fecha);
        
    End;
    Close(PedidoArchivo);

End;
{*********/Procedimientos y Funciones*************}
Begin
    MostrarPedidos();
    Readln;
End.

